--[[
    编码: WMS-01-18
    名称: 批量新增料箱-初始化
    作者：HAN  
    日期：2025-4-29

    级别：固定 (说明本段代码在项目中不太会变化)
    
    函数： DlgInitial

    功能:
        -- 弹出自定义表单编辑 容器类型定义 属性时，初始化自定义表单界面
    更改记录:

--]]

wms_base = require( "wms_base" )

function DlgInitial ( strLuaDEID ) 
    local nRet, strRetInfo, n, nCount
    local choice_items = {}
    local strCondition, ctd_code
    local strOrder = 'S_CTD_CODE'
    
    strCondition = ""
    nRet, strRetInfo = mobox.queryDataObjAttr(strLuaDEID, "Container_Type_Def", strCondition, strOrder,"S_CTD_CODE","S_NAME" )
    if (nRet ~= 0) then 
        lua.Stop( strLuaDEID, "获取【Container_Type_Def】信息失败! " .. strRetInfo )
        return
    end

    ctd_code = ''
    if ( strRetInfo ~= '' ) then
        local ctd_set = {}
        local success
        local attrs
        success, ctd_set = pcall( json.decode, strRetInfo)
        if ( success == false ) then 
            lua.Stop( strLuaDEID, "获取【Container_Type_Def】信息失败! 非法的JSON格式!"..ctd_set ) 
            return
        end

        nCount = #ctd_set

        -- 组织下拉列表选项
        local ctd_name
        for n = 1, nCount do
            attrs = ctd_set[n].attrs
            ctd_name = attrs[2].value
            choice_items[n] = attrs[1].value
            if ( ctd_name ~= '' ) then
                choice_items[n] = choice_items[n].."/"..ctd_name
            end
        end
        -- 如果只有一个仓库，那么就默认选这个仓库
        if ( nCount == 1) then 
            ctd_code = choice_items[1] 
        end
    end

    if ( #choice_items == 0 ) then return end
    local action = {
        {
            action_type = "set_dlg_attr",
            value = {
                { attr = "S_CTD_CODE", value = ctd_code, choice_list = choice_items }
            }
        }
    }
    nRet, strRetInfo = mobox.setAction( strLuaDEID, lua.table2str( action )  )
    if ( nRet ~= 0 ) then 
        lua.Stop( strLuaDEID, "setAction失败! "..strRetInfo..' action = '..strAction )
        return
    end 
end